{NeoBook Function}
'###############################
' Author: Andrei Solodyankin (as3856) 
' mail : as3856@rambler.ru
' www/neobooker.ru
'###############################

Language=VBScript
Comment=Outputs an external IP to a variable
Param=[%1]|Text|Hosting address ( http://icanhazip.com/ )
Param=[%2]|Text|The variable name (External IP)
{End}
'     IP
' http://myip.dnsomatic.com/
' http://whatismyip.org/
' http://icanhazip.com/

Dim http : Set http = CreateObject( "MSXML2.ServerXmlHttp" )
http.Open "GET", "[%1]", False
http.Send
nbSetVar "[%2]", http.responseText
Set http = Nothing
